home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0027_Compare Strings.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-27  |  337b  |  13 lines
  1. Function CompareStr(Str1, Str1 : String) : Boolean;
  2. begin
  3.   if (Length(Str1) = Length(Str2)) and (Pos(Str1, Str2) <> 0)) then
  4.     CompareStr := True
  5.   else
  6.     CompareStr := False;
  7. end;
  8.  
  9. Function CompareStrContext(Str1, Str2 : String) : Boolean;
  10. begin
  11.   CompareStrContext := CompareStr(StUpCase(Str1), StUpCase(Str2));
  12. end;
  13.